#!/usr/bin/perl -w
$i=1; # On initialise le compteur de lignes à 1
print " Veuillez saisir votre lettre. 
Pour vous arreter, tapez 'STOP'.\n ";
while (<>) {
 chomp($_);
 $ligne = $_;
 if ($ligne eq "STOP") { 
	print "Vous avez saisi la lettre suivante\n\n$texte\n";
	exit;
	} # Si on saisit "STOP", ça s'arrête
 else {  
	$texte .=" $i $_\n"; 
	#On stocke pour chaque ligne : la ligne + le numéro de la ligne
	$i++; #On incrémente le compteur qui compte le nombre de lignes
	}
}